home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / REXX / mailer.wrx < prev    next >
Text File  |  1993-12-26  |  2KB  |  97 lines
  1. /*
  2.  * dieses Script arbeitet genauso wie open.wrx nur das es anstatt
  3.  * dem voreingestellten Konfigurationfile, den Konfigurationsfile
  4.  * "MAILER.config" läd
  5.  *
  6.  * usage : rx MAILER.wrx [#screen] [#run] FileName
  7.  *
  8.  * CHANGE PATH IN MARKED LINE TO YOUR WRITE-PATH !!!!
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE")
  13. THEN DO
  14.   ADDRESS "COMMAND"
  15.   "run >NIL: <NIL: dh0:WRITE"            /* Change this to your Path  ! */
  16.   "SYS:REXXC/WaitForPort <NIL: >NIL: WRITE"
  17. END
  18.  
  19. PARSE ARG A.1 A.2 A.3
  20.  
  21. runit    = FALSE
  22. screenit = FALSE
  23. FileName = ""
  24.  
  25. DO i = 1 TO 3
  26.   IF A.i="#run" THEN DO
  27.     runit = TRUE
  28.   END
  29.   ELSE DO
  30.     IF A.i="#screen" THEN DO
  31.       screenit = TRUE
  32.     END
  33.     ELSE DO
  34.       IF A.i~="" THEN DO
  35.         FileName=A.i
  36.       END
  37.     END
  38.   END
  39. END
  40.  
  41. FileName=strip(FileName)
  42. FileName=strip(FileName,'B','"')
  43.  
  44. IF length(FileName)~=0
  45. THEN DO
  46.   IF pos(':',FileName)=0
  47.   THEN DO
  48.    DirName=pragma('D')
  49.    IF right(DirName,1)~=':' THEN
  50.      DirName=DirName||'/'
  51.    FileName=DirName||FileName
  52.   END
  53. END
  54.  
  55. ADDRESS "WRITE"
  56.  
  57. OPTIONS RESULTS
  58.  
  59. 'NEWED "MAILER.CONFIG"'
  60. ID = RESULT
  61. OPENPORT ID
  62. Port = RESULT
  63. IF Port = ""
  64. THEN DO
  65.   "MESSAGEOK (REXX-script 'mailer.wrx' :\nSorry, no more private ports!)"
  66.   EXIT
  67. END
  68.  
  69. INTERPRET ADDRESS Port
  70.  
  71. "WINDOW 0 0 0 0"
  72.  
  73. "SETVAR (_Path) ("||FileName||")"
  74. IF length(FileName)~=0
  75. THEN DO
  76.   IF exists(FileName) then
  77.     "OPEN ("||FileName||")"
  78.   ELSE
  79.     "SETVAR (_FileName) ("||FileName||")"
  80. END
  81.  
  82. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  83.   MODIFYSCREEN 0
  84. END
  85.  
  86.  
  87. IF (runit = FALSE) THEN DO
  88.   WAITPORT ID
  89. END
  90.  
  91. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  92.   IF show('P',"WRITE") THEN DO
  93.     ADDRESS "WRITE"
  94.     MODIFYSCREEN 1
  95.   END
  96. END
  97.